home *** CD-ROM | disk | FTP | other *** search
/ Aminet 28 / Aminet 28 (1998)(GTI - Schatztruhe)[!][Dec 1998].iso / Aminet / text / edit / bah.lha / BAH3.3.1 / Rexx / E / ECompileCache.bed < prev    next >
Text File  |  1998-10-16  |  412b  |  27 lines
  1. /* 
  2. ** $VER: ECompile.bed 1.0 (4.1.96) by M&F
  3. ** 
  4. ** Run the ECDEMO command on the current BED window
  5. */ 
  6.  
  7. OPTIONS RESULTS
  8.  
  9. SetDisplayLock ON
  10. SetInputLock ON
  11.  
  12. GetFilePath PATH
  13. path = RESULT
  14.  
  15. GetFilePath FILE
  16. name = RESULT
  17.  
  18. IF name = "" THEN
  19. DO
  20.     SetStatusBar "No file name -- aborting"
  21.     exit 0
  22. END
  23.  
  24. ADDRESS COMMAND 'CD "' || path || '"' || '0A'X || 'E:bin/EC "' || name || '"'
  25.  
  26. SetDisplayLock OFF
  27. SetInputLock OFF